home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 2 / CU Amiga Magazine's Super CD-ROM 02 (1996)(EMAP Images)(GB)[!][issue 1996-04].iso / magazine / amiga_e / amigae-l.0294 / 000116_donews!crash!c…wu.edu!gbritton_Tue, 1 Mar 94 01:42:08 PST.msg < prev    next >
Text File  |  1994-03-05  |  2KB  |  52 lines
  1. Received: by bkhouse.cts.com (V1.17-beta/Amiga)
  2.       id <1xzi@bkhouse.cts.com>; Tue, 1 Mar 94 01:42:08 PST
  3. Received: from crash by donews.cts.com with uucp
  4.     (Smail3.1.28.1 #18) id m0pbEie-0001w9C; Mon, 28 Feb 94 12:37 PST
  5. Received: from cap.gwu.edu by crash.cts.com with smtp
  6.     (Smail3.1.28.1 #18) id m0pbEJ0-00000oC; Mon, 28 Feb 94 12:11 PST
  7. Received: by cap.gwu.edu (4.1/SMI-4.1)
  8.     id AA02741; Mon, 28 Feb 94 15:11:37 EST
  9. Date: Mon, 28 Feb 1994 15:08:41 -0500 (EST)
  10. Message-Id: <Pine.3.07.9402281541.A2169-a100000@cap.gwu.edu>
  11. Mime-Version: 1.0
  12. Content-Type: TEXT/PLAIN; charset=US-ASCII
  13. From: "Gerald C. Britton" <gbritton@cap.gwu.edu>
  14. To: AmigaE Mailing List <amigae@bkhouse.cts.com>
  15. Subject: MMD0Player.e
  16.  
  17. Here is a simpe example of how to use the MEDPlayer.library from E.
  18. The MEDPlayer emodule was created w/Pragma2Module from the .h file.
  19.  
  20. --- 8< ---
  21. MODULE 'MEDPlayer'
  22.  
  23. PROC main()
  24.     DEF m[120]:STRING, mod=NIL, err=NIL
  25.     m := arg
  26.     IF (medplayerbase := OpenLibrary('medplayer.library',2))
  27.         IF (err := GetPlayer(0)) = NIL
  28.             IF (mod := LoadModule(m))
  29.                 PlayModule(mod)
  30.                 WriteF('Playing module "\s"\n', m)
  31.                 WHILE Mouse() <> 3 ; ENDWHILE
  32.                 StopPlayer()
  33.                 UnLoadModule(mod)
  34.             ELSE
  35.                 WriteF('*** ERROR: Unable to load module "\s"\n', m)
  36.             ENDIF
  37.         ELSE
  38.             WriteF('*** ERROR: Unable to get player\n')
  39.         ENDIF
  40.         FreePlayer()
  41.         CloseLibrary(medplayerbase)
  42.     ELSE
  43.         WriteF('*** ERROR: Unable to open MEDPlayer.library v2.00\n')
  44.     ENDIF
  45. ENDPROC
  46.  
  47.  
  48.       /// Gerald - Britton         _
  49.      ///                         _(_)_
  50. \\\ /// gbritton@cap.gwu.edu    (_)_(_)
  51.  \\X// gbritton@freenet.fsu.edu  ////
  52.